irqloda	
	inc $d019
;	inc $d020
	lda #1
	sta $d020


	lda #<irqloda2
	ldy #>irqloda2
	sta $0314
	sty $0315

aaa	
	lda #$06
	sta $d012
	lda $d011
	and #127
	sta $d011
	

	
;	dec $d020
	jmp irqex

irqloda2	
	inc $d019
	
	nop
	nop
	nop
	nop
	nop
	nop
	lda #0
	sta $d020

	lda #<irqloda
	ldy #>irqloda
	sta $0314
	sty $0315


	lda #$03
	sta $d012

	

	clc
	inc aaa+1
	inc aaa+1
	inc aaa+1
	inc aaa+1
	
	ldy temp
	dey
	sty temp
	bne xt
	
	lda #1
	sta dosc
	lda #1
	sta $d020
	

xt	lda $d011
	and #127
	sta $d011


;	clc
;	adc #1
;	sta aaa+1
	
	JSR $1003
	
	jmp irqex


